/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Prog / A / AxoCalculator Packag1.1.sit / AxoCalculator Package / AxoCalculator AutoLoad / Stock Concentration

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 13 53 74 6f 63 6b 20 | 43 6f 6e 63 65 6e 74 72 |..Stock |Concentr|
|00000010| 61 74 69 6f 6e 00 00 00 | 00 00 00 00 00 00 00 00 |ation...|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 41 78 6f | 43 00 00 00 00 00 00 00 |.TEXTAxo|C.......|
|00000050| 00 00 00 00 00 07 30 00 | 00 03 68 a7 93 bb e7 a7 |......0.|..h.....|
|00000060| 93 bb e7 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 40 6a 00 00 |........|....@j..|
|00000080| 4c 6f 63 61 6c 4c 61 6e | 67 75 61 67 65 20 50 61 |LocalLan|guage Pa|
|00000090| 73 63 61 6c 0d 7b 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |scal.{--|--------|
|000000a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000c0| 2d 2d 2d 2d 2d 2d 2d 0d | 54 68 69 73 20 64 6f 63 |-------.|This doc|
|000000d0| 75 6d 65 6e 74 20 63 6f | 6e 74 61 69 6e 73 20 61 |ument co|ntains a|
|000000e0| 20 70 72 6f 63 65 64 75 | 72 65 20 66 6f 72 20 63 | procedu|re for c|
|000000f0| 6f 6e 76 65 72 74 69 6e | 67 0d 62 65 74 77 65 65 |onvertin|g.betwee|
|00000100| 6e 20 73 6f 6c 75 74 69 | 6f 6e 20 63 6f 6e 63 65 |n soluti|on conce|
|00000110| 6e 74 72 61 74 69 6f 6e | 20 61 6e 64 20 73 6f 6c |ntration| and sol|
|00000120| 75 74 65 20 77 65 69 67 | 68 74 2c 20 0d 74 61 6b |ute weig|ht, .tak|
|00000130| 69 6e 67 20 69 6e 74 6f | 20 61 63 63 6f 75 6e 74 |ing into| account|
|00000140| 20 74 68 65 20 76 6f 6c | 75 6d 65 20 6f 66 20 77 | the vol|ume of w|
|00000150| 61 74 65 72 20 61 6e 64 | 20 74 68 65 0d 6d 6f 6c |ater and| the.mol|
|00000160| 65 63 75 6c 61 72 20 77 | 65 69 67 68 74 20 6f 66 |ecular w|eight of|
|00000170| 20 74 68 65 20 73 6f 6c | 75 74 65 2e 0d 0d a5 20 | the sol|ute.... |
|00000180| 20 54 6f 20 6c 6f 61 64 | 20 74 68 69 73 20 66 75 | To load| this fu|
|00000190| 6e 63 74 69 6f 6e 20 63 | 68 6f 6f 73 65 20 22 53 |nction c|hoose "S|
|000001a0| 65 6c 65 63 74 20 41 6c | 6c 22 20 75 6e 64 65 72 |elect Al|l" under|
|000001b0| 20 0d 20 20 20 20 74 68 | 65 20 22 45 64 69 74 22 | .    th|e "Edit"|
|000001c0| 20 6d 65 6e 75 2c 20 74 | 68 65 6e 20 70 72 65 73 | menu, t|hen pres|
|000001d0| 73 20 22 65 6e 74 65 72 | 22 2e 20 0d 0d 2d 2d 2d |s "enter|". ..---|
|000001e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000001f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000200| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 7d |--------|-------}|
|00000210| 0d 56 61 72 0d 09 6d 6f | 6c 65 63 75 6c 61 72 57 |.Var..mo|lecularW|
|00000220| 65 69 67 68 74 2c 20 56 | 6f 6c 75 6d 65 2c 20 43 |eight, V|olume, C|
|00000230| 6f 6e 63 65 6e 74 72 61 | 74 69 6f 6e 2c 20 57 65 |oncentra|tion, We|
|00000240| 69 67 68 74 3a 20 52 65 | 61 6c 0d 09 0d 7b a5 20 |ight: Re|al...{. |
|00000250| 53 69 6e 67 6c 65 20 63 | 68 61 6e 6e 65 6c 20 70 |Single c|hannel p|
|00000260| 72 6f 70 65 72 74 69 65 | 73 20 20 a5 7d 0d 70 72 |ropertie|s  .}.pr|
|00000270| 6f 63 65 64 75 72 65 20 | 53 6f 6c 75 74 69 6f 6e |ocedure |Solution|
|00000280| 0d 56 61 72 0d 09 64 6f | 6e 65 3a 09 42 6f 6f 6c |.Var..do|ne:.Bool|
|00000290| 65 61 6e 0d 62 65 67 69 | 6e 0d 09 64 6f 6e 65 20 |ean.begi|n..done |
|000002a0| 3d 20 46 61 6c 73 65 0d | 09 52 65 70 65 61 74 0d |= False.|.Repeat.|
|000002b0| 09 09 50 6f 73 65 44 69 | 61 6c 6f 67 20 28 27 5c |..PoseDi|alog ('\|
|000002c0| 72 43 61 6c 63 75 6c 61 | 74 65 20 76 6f 6c 75 6d |rCalcula|te volum|
|000002d0| 65 2c 20 77 65 69 67 68 | 74 20 6f 72 20 63 6f 6e |e, weigh|t or con|
|000002e0| 63 65 6e 74 72 61 74 69 | 6f 6e 20 6f 66 20 61 20 |centrati|on of a |
|000002f0| 73 6f 6c 75 74 69 6f 6e | 2e 5c 72 53 65 74 20 75 |solution|.\rSet u|
|00000300| 6e 6b 6e 6f 77 6e 20 70 | 61 72 61 6d 65 74 65 72 |nknown p|arameter|
|00000310| 20 74 6f 20 7a 65 72 6f | 27 2c 0d 26 09 09 09 27 | to zero|',.&...'|
|00000320| 4d 6f 6c 65 63 75 6c 61 | 72 20 57 65 69 67 68 74 |Molecula|r Weight|
|00000330| 27 2c 20 6d 6f 6c 65 63 | 75 6c 61 72 57 65 69 67 |', molec|ularWeig|
|00000340| 68 74 2c 20 0d 26 09 09 | 09 27 56 6f 6c 75 6d 65 |ht, .&..|.'Volume|
|00000350| 20 3a 20 6d 6c 27 2c 20 | 56 6f 6c 75 6d 65 2c 0d | : ml', |Volume,.|
|00000360| 26 09 09 09 27 43 6f 6e | 63 65 6e 74 72 61 74 69 |&...'Con|centrati|
|00000370| 6f 6e 20 3a 20 6d 4d 27 | 2c 43 6f 6e 63 65 6e 74 |on : mM'|,Concent|
|00000380| 72 61 74 69 6f 6e 2c 20 | 0d 26 09 09 09 27 57 65 |ration, |.&...'We|
|00000390| 69 67 68 74 20 3a 20 67 | 27 2c 57 65 69 67 68 74 |ight : g|',Weight|
|000003a0| 29 0d 09 0d 09 09 69 66 | 20 6d 6f 6c 65 63 75 6c |).....if| molecul|
|000003b0| 61 72 57 65 69 67 68 74 | 20 3d 20 30 20 74 68 65 |arWeight| = 0 the|
|000003c0| 6e 09 09 7b 20 63 61 6c | 63 75 6c 61 74 65 20 6d |n..{ cal|culate m|
|000003d0| 6f 6c 65 63 75 6c 61 72 | 20 77 65 69 67 68 74 20 |olecular| weight |
|000003e0| 7d 0d 09 09 62 65 67 69 | 6e 0d 09 09 09 6d 6f 6c |}...begi|n....mol|
|000003f0| 65 63 75 6c 61 72 57 65 | 69 67 68 74 20 3d 20 31 |ecularWe|ight = 1|
|00000400| 65 36 2a 20 57 65 69 67 | 68 74 20 2f 20 28 56 6f |e6* Weig|ht / (Vo|
|00000410| 6c 75 6d 65 20 2a 20 43 | 6f 6e 63 65 6e 74 72 61 |lume * C|oncentra|
|00000420| 74 69 6f 6e 29 0d 09 09 | 09 64 6f 6e 65 20 3d 20 |tion)...|.done = |
|00000430| 54 72 75 65 0d 09 09 65 | 6e 64 0d 09 09 65 6c 73 |True...e|nd...els|
|00000440| 65 0d 09 09 62 65 67 69 | 6e 0d 09 09 09 69 66 20 |e...begi|n....if |
|00000450| 56 6f 6c 75 6d 65 20 3d | 20 30 20 74 68 65 6e 09 |Volume =| 0 then.|
|00000460| 09 7b 20 63 61 6c 63 75 | 6c 61 74 65 20 56 6f 6c |.{ calcu|late Vol|
|00000470| 75 6d 65 20 69 6e 20 6d | 6c 20 7d 0d 09 09 09 62 |ume in m|l }....b|
|00000480| 65 67 69 6e 0d 09 09 09 | 09 56 6f 6c 75 6d 65 20 |egin....|.Volume |
|00000490| 3d 20 31 65 36 2a 20 57 | 65 69 67 68 74 20 2f 20 |= 1e6* W|eight / |
|000004a0| 28 6d 6f 6c 65 63 75 6c | 61 72 57 65 69 67 68 74 |(molecul|arWeight|
|000004b0| 20 2a 20 43 6f 6e 63 65 | 6e 74 72 61 74 69 6f 6e | * Conce|ntration|
|000004c0| 29 0d 09 09 09 09 64 6f | 6e 65 20 3d 20 54 72 75 |).....do|ne = Tru|
|000004d0| 65 0d 09 09 09 65 6e 64 | 0d 09 09 09 65 6c 73 65 |e....end|....else|
|000004e0| 0d 09 09 09 62 65 67 69 | 6e 0d 09 09 09 09 69 66 |....begi|n.....if|
|000004f0| 20 43 6f 6e 63 65 6e 74 | 72 61 74 69 6f 6e 20 3d | Concent|ration =|
|00000500| 20 30 20 74 68 65 6e 09 | 09 7b 20 63 61 6c 63 75 | 0 then.|.{ calcu|
|00000510| 6c 61 74 65 20 64 72 75 | 67 20 63 6f 6e 63 65 6e |late dru|g concen|
|00000520| 74 72 61 74 69 6f 6e 20 | 69 6e 20 6d 4d 20 7d 0d |tration |in mM }.|
|00000530| 09 09 09 09 62 65 67 69 | 6e 0d 09 09 09 09 09 43 |....begi|n......C|
|00000540| 6f 6e 63 65 6e 74 72 61 | 74 69 6f 6e 20 3d 20 31 |oncentra|tion = 1|
|00000550| 65 36 2a 20 57 65 69 67 | 68 74 20 2f 20 28 6d 6f |e6* Weig|ht / (mo|
|00000560| 6c 65 63 75 6c 61 72 57 | 65 69 67 68 74 20 2a 20 |lecularW|eight * |
|00000570| 56 6f 6c 75 6d 65 29 0d | 09 09 09 09 09 64 6f 6e |Volume).|.....don|
|00000580| 65 20 3d 20 54 72 75 65 | 0d 09 09 09 09 65 6e 64 |e = True|.....end|
|00000590| 0d 09 09 09 09 65 6c 73 | 65 09 09 0d 09 09 09 09 |.....els|e.......|
|000005a0| 62 65 67 69 6e 09 0d 09 | 09 09 09 09 69 66 20 57 |begin...|....if W|
|000005b0| 65 69 67 68 74 20 3d 20 | 30 20 74 68 65 6e 09 09 |eight = |0 then..|
|000005c0| 7b 20 63 61 6c 63 75 6c | 61 74 65 20 77 65 69 67 |{ calcul|ate weig|
|000005d0| 68 74 20 69 6e 20 67 20 | 7d 0d 09 09 09 09 09 62 |ht in g |}......b|
|000005e0| 65 67 69 6e 0d 09 09 09 | 09 09 09 57 65 69 67 68 |egin....|...Weigh|
|000005f0| 74 20 3d 20 43 6f 6e 63 | 65 6e 74 72 61 74 69 6f |t = Conc|entratio|
|00000600| 6e 20 2a 20 6d 6f 6c 65 | 63 75 6c 61 72 57 65 69 |n * mole|cularWei|
|00000610| 67 68 74 20 2a 20 56 6f | 6c 75 6d 65 20 2f 20 31 |ght * Vo|lume / 1|
|00000620| 65 36 0d 09 09 09 09 09 | 09 64 6f 6e 65 20 3d 20 |e6......|.done = |
|00000630| 54 72 75 65 0d 09 09 09 | 09 09 65 6e 64 0d 09 09 |True....|..end...|
|00000640| 09 09 65 6e 64 0d 09 09 | 09 65 6e 64 0d 09 09 65 |..end...|.end...e|
|00000650| 6e 64 0d 09 09 69 66 20 | 64 6f 6e 65 20 74 68 65 |nd...if |done the|
|00000660| 6e 0d 09 09 62 65 67 69 | 6e 0d 09 09 09 77 72 69 |n...begi|n....wri|
|00000670| 74 65 6c 6e 20 28 27 4d | 6f 6c 65 63 75 6c 61 72 |teln ('M|olecular|
|00000680| 20 57 74 2e 20 5c 74 5c | 74 27 2c 6d 6f 6c 65 63 | Wt. \t\|t',molec|
|00000690| 75 6c 61 72 57 65 69 67 | 68 74 29 0d 09 09 09 77 |ularWeig|ht)....w|
|000006a0| 72 69 74 65 6c 6e 20 28 | 27 56 6f 6c 75 6d 65 20 |riteln (|'Volume |
|000006b0| 20 20 20 20 20 20 20 20 | 20 20 5c 74 27 2c 56 6f |        |  \t',Vo|
|000006c0| 6c 75 6d 65 2c 20 27 20 | 6d 6c 27 29 0d 09 09 09 |lume, ' |ml')....|
|000006d0| 77 72 69 74 65 6c 6e 20 | 28 27 43 6f 6e 63 65 6e |writeln |('Concen|
|000006e0| 74 72 61 74 69 6f 6e 20 | 5c 74 27 2c 43 6f 6e 63 |tration |\t',Conc|
|000006f0| 65 6e 74 72 61 74 69 6f | 6e 2c 20 27 20 6d 4d 27 |entratio|n, ' mM'|
|00000700| 29 0d 09 09 09 77 72 69 | 74 65 6c 6e 20 28 27 57 |)....wri|teln ('W|
|00000710| 65 69 67 68 74 20 20 20 | 20 20 20 20 20 20 20 20 |eight   |        |
|00000720| 20 5c 74 27 2c 57 65 69 | 67 68 74 2c 20 27 20 67 | \t',Wei|ght, ' g|
|00000730| 27 29 0d 09 09 65 6e 64 | 0d 09 09 65 6c 73 65 0d |')...end|...else.|
|00000740| 09 09 62 65 67 69 6e 0d | 09 09 09 41 6c 65 72 74 |..begin.|...Alert|
|00000750| 20 28 27 4e 6f 20 63 61 | 6c 63 75 6c 61 74 69 6f | ('No ca|lculatio|
|00000760| 6e 20 77 61 73 20 70 65 | 72 66 6f 72 6d 65 64 2e |n was pe|rformed.|
|00000770| 5c 6e 50 6c 65 61 73 65 | 20 73 65 74 20 74 68 65 |\nPlease| set the|
|00000780| 20 75 6e 6b 6e 6f 77 6e | 20 76 61 6c 75 65 20 74 | unknown| value t|
|00000790| 6f 20 7a 65 72 6f 2e 27 | 29 0d 09 09 65 6e 64 0d |o zero.'|)...end.|
|000007a0| 09 55 6e 74 69 6c 20 64 | 6f 6e 65 0d 65 6e 64 0d |.Until d|one.end.|
|000007b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000800| 00 00 01 00 00 00 02 fa | 00 00 01 fa 00 00 00 6e |........|.......n|
|00000810| 00 00 02 00 00 00 00 06 | 00 00 00 00 00 00 00 03 |........|........|
|00000820| 00 00 00 9c 00 00 12 43 | ff dd 00 00 02 02 00 00 |.......C|........|
|00000830| 13 53 74 6f 63 6b 20 43 | 6f 6e 63 65 6e 74 72 61 |.Stock C|oncentra|
|00000840| 74 69 6f 6e 02 00 00 00 | 50 61 72 74 53 49 54 78 |tion....|PartSITx|
|00000850| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|00000860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000870| 00 00 a9 80 15 f9 00 00 | 00 00 00 00 03 68 00 16 |........|.....h..|
|00000880| 00 00 00 00 00 00 00 03 | 00 00 ff fe 09 2a 01 4b |........|.....*.K|
|00000890| 00 00 00 00 01 02 00 00 | 00 16 00 00 00 00 00 00 |........|........|
|000008a0| 00 03 00 00 00 7a 00 00 | 00 00 00 00 00 03 10 0c |.....z..|........|
|000008b0| 00 00 00 16 00 00 00 00 | 00 00 00 03 00 00 ff ff |........|........|
|000008c0| 00 00 00 00 00 00 00 03 | 10 0c 00 00 00 16 00 00 |........|........|
|000008d0| 00 00 00 00 00 03 00 00 | ff fe 09 2a 00 00 70 dd |........|...*..p.|
|000008e0| 00 03 10 0c 00 00 00 16 | 00 00 00 00 00 00 00 03 |........|........|
|000008f0| 00 00 00 f1 00 00 9b 45 | 00 00 00 00 01 02 ff ff |.......E|........|
|00000900| 00 00 00 46 00 00 00 00 | 00 00 00 00 01 00 06 47 |...F....|.......G|
|00000910| 65 6e 65 76 61 00 00 00 | 00 00 00 00 00 00 00 00 |eneva...|........|
|00000920| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000930| 00 0c 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000940| 00 00 00 00 00 00 00 00 | 07 34 00 00 01 12 06 47 |........|.4.....G|
|00000950| 65 6e 65 76 61 63 75 6c | 61 74 6f 72 2d 31 80 00 |enevacul|ator-1..|
|00000960| 00 00 00 00 00 1c 00 00 | 4a c8 00 2d 00 05 01 1d |........|J..-....|
|00000970| 01 a9 00 2a 00 03 02 6d | 03 3d 80 00 00 02 00 00 |...*...m|.=......|
|00000980| 00 48 00 00 4c 98 00 0e | 00 00 00 00 00 00 00 00 |.H..L...|........|
|00000990| 00 00 00 01 00 04 00 02 | 00 00 00 06 00 00 00 06 |........|........|
|000009a0| 00 57 00 00 00 22 00 00 | 00 18 88 a0 05 32 00 de |.W..."..|.....2..|
|000009b0| 05 32 00 de 05 33 01 0e | 00 07 01 0e 00 08 01 0f |.2...3..|........|
|000009c0| 00 08 80 00 00 02 00 00 | 00 18 00 00 00 b0 00 0a |........|........|
|000009d0| 00 00 00 00 00 00 00 00 | 01 aa 80 20 00 00 00 00 |........|... ....|
|000009e0| 00 4c 00 00 4a 68 7f fe | 40 02 5f fa 50 0a 5f fa |.L..Jh..|@._.P._.|
|000009f0| 40 02 4d b2 4d b2 40 02 | 4d b2 4d b2 40 02 4d b2 |@.M.M.@.|M.M.@.M.|
|00000a00| 4d b2 40 02 7f fe 7f fe | 7f fe 7f fe 7f fe 7f fe |M.@.....|........|
|00000a10| 7f fe 7f fe 7f fe 7f fe | 7f fe 7f fe 7f fe 7f fe |........|........|
|00000a20| 7f fe 7f fe 7f fe 80 00 | 00 00 00 00 00 4c 00 00 |........|.....L..|
|00000a30| 4a 60 7f fe 40 02 5f fa | 50 0a 5f fa 40 02 4d b2 |J`..@._.|P._.@.M.|
|00000a40| 4d b2 40 02 4d b2 4d b2 | 40 02 4d b2 4d b2 01 81 |M.@.M.M.|@.M.M...|
|00000a50| 00 0c 00 00 00 00 00 00 | 00 00 ff ff ff ff ff ff |........|........|
|00000a60| 00 00 00 78 00 03 00 00 | 00 48 00 48 00 00 00 00 |...x....|.H.H....|
|00000a70| 02 da 02 28 ff e1 ff e2 | 02 f9 02 46 03 47 05 28 |...(....|...F.G.(|
|00000a80| 03 fc 00 02 00 00 00 48 | 00 48 00 00 00 00 02 da |.......H|.H......|
|00000a90| 02 28 00 01 00 00 00 64 | 00 00 00 01 00 01 01 01 |.(.....d|........|
|00000aa0| 00 00 00 01 27 0f 00 01 | 00 01 00 00 00 00 00 00 |....'...|........|
|00000ab0| 00 00 00 00 00 00 00 02 | 00 19 01 90 00 00 00 00 |........|........|
|00000ac0| 00 40 00 00 00 00 00 00 | 00 00 00 01 00 00 00 00 |.@......|........|
|00000ad0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 1a |........|........|
|00000ae0| 00 00 00 41 00 00 00 24 | 00 00 01 65 00 00 01 a1 |...A...$|...e....|
|00000af0| 00 12 00 00 00 00 09 24 | 00 01 00 00 01 00 00 00 |.......$|........|
|00000b00| 02 fa 00 00 01 fa 00 00 | 00 6e 01 8b a9 98 08 d2 |........|.n......|
|00000b10| 00 00 00 1c 00 6e 00 03 | 57 53 46 4d 00 00 00 22 |.....n..|WSFM..."|
|00000b20| 53 50 45 43 00 00 00 2e | 50 52 4e 54 00 00 00 3a |SPEC....|PRNT...:|
|00000b30| 41 53 52 54 00 00 00 46 | 00 01 ff ff 00 00 00 00 |ASRT...F|........|
|00000b40| 00 00 00 00 00 01 ff ff | 00 00 00 4a 00 00 00 00 |........|...J....|
|00000b50| 00 01 ff ff 00 00 01 60 | 00 00 00 00 2e e5 ff ff |.......`|........|
|00000b60| 00 00 01 dc 01 8c 71 84 | 00 00 00 00 00 00 00 00 |......q.|........|
|00000b70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+